
;=================================================
; switches certain code off
;
(defmacro off (&rest code)
 `()
 )

;=================================================
; provides a way to dump all of these
;
(defun trace-fn-thunk (func-call-list)
 (dolist (func-call func-call-list)
  (if (atom func-call)
   ; this is probably a string or a symbol
   (cond
    ; string?
    ((typep func-call 'string) (format t "=====~%~a:~%" func-call))
    ; variable?
    (t (format t "~a = ~a~%" func-call (eval func-call)))
   ) ; cond

   ; this is a function call
   (format t "~a -> ~a~%" func-call (eval func-call)))
 )
 )

;=================================================
; function dumper
(defmacro trace-fn (&rest func-call-list)
 `(trace-fn-thunk (quote ,func-call-list))
 ) ; trace-fn

